10 DIMR$(60),A$(60) 20 POKE53280,11:POKE53281,11:POKE646,1:A=0 30 OPEN2,8,2,"ANTWORTEN,S,R" 40 INPUT#2,I 50 FORT=1TOI:INPUT#2,R$(T):NEXT 60 CLOSE2 70 PRINT"[147] AUSWERUNGSFILE ZUM SUPERQUIZ" 80 PRINT" BITTE JETZT DIE DISKETTE MIT DEM FILE "CHR$(34)"SUPER"; 90 PRINT"SCORE"CHR$(34)" EINLEGEN,":PRINT" DANN EINE BELIEBIGE TASTE DRUECKEN!" 100 POKE198,0:WAIT198,1:POKE198,0 110 OPEN2,8,2,"SUPERSCORE,S,R" 120 INPUT#2,I 130 FORT=1TOI:INPUT#2,A$(T):NEXT 140 CLOSE2 150 PRINT"[147]AUSWERTUNG BEGINNT!" 160 FORT=1TOI 170 IFA$(T)=R$(T)THENPRINT"FRAGE"T"WURDE RICHTIG BEANTWORTET!":GOSUB210:GOTO190 180 GOSUB230 190 PRINT"[147]":NEXT 200 PRINT"[147]SIE HABEN INSGESAMT";A;"PUNKTE":GOTO270 210 PRINT"DIES GIBT FUER SIE 5 PUNKTE!":A=A+5:PRINT"SIE HABEN DAMIT"A"PUNKTE!" 220 POKE198,0:WAIT198,1:POKE198,0:RETURN 230 PRINT"DIE FRAGE"T"WURDE VON IHNEN LEIDER":PRINT"NICHT RICHTIG BEANTWORTET." 240 PRINT"RICHTIG WAERE ";R$(T);" GEWESEN...":PRINT"LEIDER KEINE PUNKTE..." 250 PRINT"IHR PUNKTESTAND:";A 260 POKE198,0:WAIT198,1:POKE198,0:RETURN 270 PRINT"VON MAXIMAL [159]275 PUNKTEN ERREICHT." 280 IF A>=205 THEN 310 290 IF A<205 AND A>100 THEN 370 300 IF A<=100 THEN 400 310 PRINT"SIE BESITZEN SUPER KENNTNISSE," 320 PRINT"BESONDERS IM BEREICH GEOGRAPHIE & SPORT." 330 PRINT"AN IHRER STELLE WUERDE ICH MIR, WENN 340 [153]"SIE NOCH KEINEN BERUF HABEN, 'NEN BERUF" 350 [153]"IN DIESER RICHTUNG WAEHLEN. 360 GOTO420 370 PRINT"SIE HABEN EIGENTLICH EIN GUTES ALLGE- MEINWISSEN UND KOENNTEN SICH" 380 PRINT"(SO GLAUBE ICH), AUF EIN GEBIET SPEZIALISIEREN!!" 390 GOTO420 400 PRINT"SIE SOLLTEN SICH UNBEDINGT ALLGEMEIN-" 410 PRINT"WISSEN ANEIGNEN,DENN SONST WERDEN SIE ES IM LEBEN SEHR[146] SCHWER HABEN." 420 PRINT" IN DIESEM SINNE:" 430 PRINT" GOOD LUCK UND AUF WIEDERSEHEN!" 440 PRINT"":END